home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / scope / sc168.dms / sc168.adf / AsmMacros / AM_02 / AllocUDS.i < prev    next >
Text File  |  1990-11-13  |  901b  |  28 lines
  1.      NOLIST
  2. AllocUDS  MACRO                ; 19 Dec 88
  3. *------------------------------; Start of AllocUDS macro.
  4.                                ; Put block size in D0.
  5.      MOVE.L #\1,D0
  6.      CLR.L D1                  ; Accept any memory.
  7.      NOLIST
  8.                                ; Define _AbsExecBase and _LVOAllocMem if
  9.      IFND _AbsExecBase         ;  they have not yet been defined.
  10.      LIST
  11.      XREF _AbsExecBase
  12.      NOLIST
  13.      ENDC
  14.      IFND _LVOAllocMem
  15.      LIST
  16.      XREF _LVOAllocMem
  17.      NOLIST
  18.      ENDC
  19.      LIST
  20.      MOVE.L _AbsExecBase,A6
  21.      JSR _LVOAllocMem(A6)      ; Allocate the UDS memory block.
  22.      MOVEA.L D0,A5             ; Make A5 point to the UDS memory.
  23.      OnReEntrant               ; Turn on reentrant programming.
  24.      TST.L D0                  ; Make the zero flag indicate failure.
  25. *------------------------------; End of AllocUDS macro.
  26.      ENDM
  27.      LIST
  28.